编写计算e^x=1+x/1!+x^2/2!+x^3/3!+....+x^n/n!的VB程序

来源：百度知道 编辑：UC知道 时间：2024/09/24 05:25:07
编写计算n!的Function过程，调用该过程，计算ex的近似值
1）x的值用InputBox函数输入
2）要求精度：xn / n! < 0.000001

VB程序如下:
Public Function exmi(x!,n%) As Single
Dim i%,t!
exmi=1
t=1
For i=1 To n
t=t * x / i
exmi=exmi+t
Next i
End Function
Private Sub Form_click()
Dim a!,b!,x!,n%
x=Val(Text1.text)
n=Val(Text2.text)
a=exmi(x,n)
b=exmi(-x,n)
Text3.text=(a+b)/2
End Sub

好专业 不太明白

回复过分过分过分投入他6544344‘o'iuiuij